From: Pip Cet Date: Thu, 13 Jun 2019 12:10:56 +0000 (+0200) Subject: Escape newlines when printing functions in timer list X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~2959 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=bfec493efe93e1a1d87013f26d220616b0a82a65;p=emacs.git Escape newlines when printing functions in timer list * timer-list.el (list-timers): Bind `print-escape-newlines' to avoid newlines in printed representation (bug#36187). --- diff --git a/lisp/emacs-lisp/timer-list.el b/lisp/emacs-lisp/timer-list.el index 55aa56b72e0..adfc2250223 100644 --- a/lisp/emacs-lisp/timer-list.el +++ b/lisp/emacs-lisp/timer-list.el @@ -59,7 +59,8 @@ (format "%s" repeat)))) ;; Function. (let ((cl-print-compiled 'static) - (cl-print-compiled-button nil)) + (cl-print-compiled-button nil) + (print-escape-newlines t)) (cl-prin1-to-string (aref timer 5))))) (put-text-property (line-beginning-position) (1+ (line-beginning-position))